(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     69760,       1690]
NotebookOptionsPosition[     58102,       1443]
NotebookOutlinePosition[     58774,       1469]
CellTagsIndexPosition[     58694,       1464]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"aaff4d9a-2d2f-440b-b062-d6e75c754d29"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"043a7ba9-785c-495d-83a7-abb59c69ad80"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"84823c75-9f9c-4bdd-a613-c8bb1515a2b6"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"fd765f57-90c6-453d-815a-08fbc924a732"]
}], "History",
 CellID->1247902091,ExpressionUUID->"ee75b892-7108-4b2a-9202-c69179d28e22"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"8bc609d8-ea4b-4734-8b1b-eab49fd0ae93"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"0aa13d9d-407f-4297-a6e4-50b9072dbc97"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836744074705*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"c0443599-9598-4358-83f5-4675d02234c9"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836744354476*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"ad8c4d57-67e9-43b7-ba24-1fe26177555c"],

Cell["MaXrd/ref/GetSymmetryData", "Categorization",
 CellChangeTimes->{3.74383674464261*^9},
 CellLabel->"URI",ExpressionUUID->"14120941-01f2-409b-8976-fb1e13e837a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"90c7bb01-eb21-4f87-94a7-ba60efcb05f0"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"7f5f428c-0111-4e09-a03a-6d5d03f0f0f6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"846f764c-7a9a-44d0-bf80-83b7758bf426"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"97b35f43-9f1e-425c-89f6-6b7576b4f5f8"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"0564d831-4860-42be-878b-413419223276"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"374c2921-e6fe-40dc-b923-ed86053ad0f8"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"3a14d65a-913d-4450-8691-ea3635e2fc4e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"d9bd560a-b9eb-400d-9e8b-60246e1cfcec"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"42511942-c529-42d2-b023-f73410393891"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"96416b49-b68a-4056-828d-3bb24fbd0a7f"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"72a11754-3173-4b1b-bbfa-c35783c139bb"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"75227892-2269-4637-96f8-3d722b8a3e6d"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"21fba95b-66da-4a6a-a189-d49073d95e51"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"917e9f7e-744d-4bcf-9f29-f19966a4a3cf"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"4c6cf66e-98d4-49b7-96d3-5e4c379028db"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"86e28411-eb9e-4352-8164-46002fcb4308"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"ed037ef6-10dc-471a-b7a1-dcc4a443c8ea"]
}, Closed]],

Cell[CellGroupData[{

Cell["GetSymmetryData", "ObjectName",
 CellID->1224892054,ExpressionUUID->"10aff571-ac9c-4397-8363-dddf7556bb3d"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"62a46534-b72f-439a-a5c8-a5b3554a5b8a"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetSymmetryData",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetSymmetryData"], "[", 
   RowBox[{
    StyleBox["group", "TI"], ",", 
    StyleBox["label", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "39421550-cab1-45a0-85ee-ab240904a957"],
 " \[LineSeparator]extracts the data associated with ",
 Cell[BoxData[
  StyleBox["label", "TI"]], "InlineFormula",ExpressionUUID->
  "5cfcaa85-a2be-45e4-99cd-e59e7f63c8e5"],
 " from the given point- or space ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "6bc8cfec-6bb6-48fd-bb23-46b4ec8b501e"],
 "."
}], "Usage",
 CellChangeTimes->{{3.7132619528801727`*^9, 3.7132619856606903`*^9}, {
   3.713262022181507*^9, 3.713262032079302*^9}, 3.717744861051817*^9, {
   3.737968553737308*^9, 3.7379685537374163`*^9}},
 CellID->982511436,ExpressionUUID->"d3e18394-6e76-4a10-ae00-07df08f5d2a7"],

Cell[TextData[{
 "This function provides a more user-friendly utility to query data from ",
 Cell[BoxData[
  ButtonBox["$PointGroups",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$PointGroups"]], "InlineFormula",
  ExpressionUUID->"e70c9803-3a7e-4c7b-992d-17e3094bfa30"],
 " and ",
 Cell[BoxData[
  ButtonBox["$SpaceGroups",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$SpaceGroups"]], "InlineFormula",
  ExpressionUUID->"8ea97869-cfb2-4039-a154-f86f3f296bac"],
 ". One may also enter the name of an entry in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"773abcc6-2b76-4702-9893-0e06cf074825"],
 " in ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "6a64abde-c20d-468d-a5c4-f2aac3d2fa8c"],
 "; the space group will be found automatically."
}], "Notes",
 CellChangeTimes->{{3.713262105791563*^9, 3.713262154632676*^9}, {
  3.713262475301351*^9, 3.713262477156934*^9}, {3.713588742110485*^9, 
  3.713588871864482*^9}},
 CellID->1734139461,ExpressionUUID->"fd09336e-caf0-4fbf-aeb1-40099e3035e0"],

Cell[TextData[{
 "Valid labels and explanation of what information gets extracted: (",
 Cell[BoxData[
 "\"\<Lookup\>\""], "InlineFormula",ExpressionUUID->
  "de66a864-7cc5-41e7-a6c7-5c4dda8c5780"],
 " is the default ",
 Cell[BoxData[
  StyleBox["label", "TI"]], "InlineFormula",ExpressionUUID->
  "c49018b5-71ee-4733-9215-b90c90612721"],
 ")"
}], "Notes",
 CellChangeTimes->{{3.713262043552113*^9, 3.713262046213977*^9}, {
  3.713262087838078*^9, 3.713262102449799*^9}, {3.717828857944687*^9, 
  3.717828885359522*^9}},
 CellID->1067943069,ExpressionUUID->"7ea43514-4421-4ad8-ab86-5421c35cf46e"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "98121507-a868-404d-abb0-46007b49e612"], "\"\<Centring\>\"", Cell[
    "returns the centring type of input space group", "TableText",
     ExpressionUUID->"5e767e97-dd80-489e-9490-c8cd94382577"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b87d5953-65d8-4946-8764-1477a24aa3d9"], "\"\<CrystalSystem\>\"", Cell[
    "the crystal system", "TableText",ExpressionUUID->
     "3c6815f4-3d0e-4475-b18b-8aca7b019e98"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "d9e10f1c-56ba-4ceb-b4ac-c67eca42449f"], "\"\<GroupType\>\"", Cell[
    TextData[{
     "return the type of group (",
     StyleBox["\"PointGroup\"", "InlineCode"],
     " or ",
     StyleBox["\"SpaceGroup\"", "InlineCode"],
     ")"
    }], "TableText",ExpressionUUID->"565482bf-6827-486e-8c83-0fff44050f89"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "00daa485-f2e0-4523-a915-db5c75e589e1"], "\"\<HallString\>\"", Cell[
    "the Hall symbol", "TableText",ExpressionUUID->
     "eaea8e4f-a31b-4c7a-9a33-08131337d787"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "74d853b3-c8ff-4f20-8462-0fcdebf0c8cc"], "\"\<HermannMauguinFull\>\"", 
    Cell["the full Hermann\[Dash]Mauguin symbol", "TableText",ExpressionUUID->
     "fe8d606d-faf7-43bc-86d3-0cf7cdcf56a4"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "2e7149f3-a08d-4a65-9b89-75e3133329f8"], "\"\<HermannMauguinShort\>\"", 
    Cell["the short-hand Hermann\[Dash]Mauguin symbol", "TableText",
     ExpressionUUID->"3fd07130-36d7-43d9-b16a-586a86b27d8f"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "9b094891-82e1-4f75-b7c3-e68a8e372408"], "\"\<LaueClass\>\"", Cell[
    "the Laue class", "TableText",ExpressionUUID->
     "e154ea78-3bd5-4419-b250-81b4114f18e4"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4951fd08-8e04-4846-9c6f-8936b3976e84"], "\"\<Lookup\>\"", Cell[TextData[{
     "lookup the input group in ",
     Cell[BoxData[
      ButtonBox["$PointGroups",
       BaseStyle->"Link",
       ButtonData->"paclet:MaXrd/ref/$PointGroups"]], "InlineFormula",
      ExpressionUUID->"facb8fe6-86f9-42a3-bebe-050508e67a51"],
     " or ",
     Cell[BoxData[
      ButtonBox["$SpaceGroups",
       BaseStyle->"Link",
       ButtonData->"paclet:MaXrd/ref/$SpaceGroups"]], "InlineFormula",
      ExpressionUUID->"72945bc8-ce1b-4189-9905-4a3eb2b02b72"]
    }], "TableText",ExpressionUUID->"4cd04872-3f06-4ca4-8eb2-5f31e93c7601"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "93fb2883-5984-4e95-bc6a-42abb0930ea9"], "\"\<MainEntryQ\>\"", Cell[
    "whether the entry is in the main setting", "TableText",ExpressionUUID->
     "fe2d0e95-671c-4338-934c-cbc53a757c61"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b4e7ee9a-d480-4d04-8295-18a52c06ed12"], "\"\<PointGroupNumber\>\"", 
    Cell["the canonical point group number", "TableText",ExpressionUUID->
     "bbc84d2b-28a4-4537-bbb3-448f5e3687c4"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "8cb623a8-6a61-4185-9343-991ca9162cbb"], "\"\<Setting\>\"", Cell[
    "the space group setting", "TableText",ExpressionUUID->
     "8a50ada7-3b1f-4ff8-bf46-9b994ba98bd0"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "fd3f098c-bd9b-406d-bbe8-7ac80745611d"], "\"\<SpaceGroupNumber\>\"", 
    Cell[TextData[{
     "the space group number from ",
     StyleBox["International Tables for Crystallography",
      FontSlant->"Italic"]
    }], "TableText",ExpressionUUID->"e05680bb-ca3a-430a-a308-489f501e587a"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "eb8289d4-86b0-44ee-b8cf-02fadc5d6200"], "\"\<Symbol\>\"", Cell[
    "the point- or space group symbol (formatted)", "TableText",
     ExpressionUUID->"22547c52-7ba2-45f6-8899-39f103994fee"]}
  }]], "2ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.713262078580667*^9, 3.713262080795923*^9}, {
   3.713262158615327*^9, 3.71326227784551*^9}, {3.7143681158491907`*^9, 
   3.714368151630588*^9}, {3.717828829898086*^9, 3.7178288552995167`*^9}, {
   3.717830076034204*^9, 3.717830114993503*^9}, {3.717830933045583*^9, 
   3.7178309468377857`*^9}, {3.7178523234374647`*^9, 
   3.7178523374374228`*^9}, {3.738572178538973*^9, 3.7385721786106033`*^9}, {
   3.7428137262142067`*^9, 3.742813732172776*^9}, 3.780248222548012*^9},
 CellID->1506885577,ExpressionUUID->"b1b7d5c8-03d0-49d1-b768-dce27f385732"],

Cell[TextData[{
 "One can use the label ",
 Cell[BoxData[
 "\"\<MainEntryQ\>\""], "InlineFormula",ExpressionUUID->
  "9a21184e-e705-4127-aed7-8e7a54d6b92f"],
 " to check whether input is the main entry in ",
 Cell[BoxData[
  StyleBox[
   RowBox[{
    StyleBox[
     RowBox[{
     "International", " ", "Tables", " ", "for", " ", "Crystallography"}],
     FontSlant->"Italic"], 
    StyleBox[",",
     FontSlant->"Italic"], 
    StyleBox[" ",
     FontSlant->"Italic"], 
    SuperscriptBox[
     RowBox[{
      StyleBox[
       RowBox[{"volume", " ", "A"}],
       FontSlant->"Italic"], " "}], 
     RowBox[{"[", "1", "]"}]]}], "Notes"]], "InlineFormula",ExpressionUUID->
  "f069ff10-dc39-4ba4-9d32-e6746b45c7d5"],
 " (",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "f394ea4c-54ad-443a-9e90-eb1aed4b2b41"],
 ") or an alternative setting (",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/False"]], "InlineFormula",ExpressionUUID->
  "6aeab813-af18-45af-aef0-9d97b9ed448b"],
 ")."
}], "Notes",
 CellChangeTimes->{{3.713262280805707*^9, 3.713262382814473*^9}, {
  3.717852370269146*^9, 3.717852402148924*^9}},
 CellID->1980552350,ExpressionUUID->"d7a1062d-8de7-4d7f-9ff2-ae3e46775ccf"],

Cell["The function also has two options:", "Notes",
 CellChangeTimes->{{3.7132623952081823`*^9, 3.713262400438813*^9}, {
  3.714370401470804*^9, 3.7143704031450663`*^9}},
 CellID->1424649273,ExpressionUUID->"b9fea1f9-9f99-4c86-a923-21e439876930"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "7b6484e8-c231-4546-9363-40a387023c08"], "\"\<UnambiguousSymbol\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "if the label ",
     StyleBox["\"Symbol\"", "InlineCode"],
     " is used, make sure that the output is unambiguous"
    }], "TableText",ExpressionUUID->"8962c07e-e1ea-4185-826e-da0a918f1fc2"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "cd25bbb5-5c90-4bd2-9d9d-cdcb7508519e"], "\"\<UseMainEntry\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell[
    "whether to use the corresponding main entry of input", "TableText",
     ExpressionUUID->"11e7727c-5431-4aa1-a78b-a5cb886b720c"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.713262408908516*^9, 3.71326242290423*^9}, {
  3.713262509457385*^9, 3.713262537569035*^9}, {3.714370428281776*^9, 
  3.714370517006081*^9}},
 CellID->1595584043,ExpressionUUID->"90a00264-946a-4386-b1d1-65156ffdb32b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"346c06f1-60bf-4ae2-a75f-211e279c042b"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"f9b36705-f5f5-4983-b93d-1352d6e45c96"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"5cf0c7a0-d2d9-48a5-9576-356f00e609c4"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"862a5bfd-922b-4a78-a491-dc01ab36c030"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"38c10112-497e-434b-a6f3-c75e0adc98f8"],

Cell[TextData[{
 "[1] T. Hahn, ",
 StyleBox["Space-Group Symmetry",
  FontSlant->"Italic"],
 ", 5th ed., International Tables for Crystallography. Kluwer Academic \
Publishers, 2002, volume A. Website: ",
 ButtonBox["http://it.iucr.org/A/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://it.iucr.org/A/"], None},
  ButtonNote->"http://it.iucr.org/A/"],
 "."
}], "RelatedLinks",
 CellChangeTimes->{{3.7052948925733767`*^9, 3.7052949027610292`*^9}, {
  3.705295011488017*^9, 3.705295145415176*^9}},
 CellID->1038487239,ExpressionUUID->"a3cbb4a6-60b2-4440-8d5f-315d5bfb5b8a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"88126566-7f63-465a-bc01-013aaa2841ff"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"362ef465-153a-4ea4-8a10-6d52312f1f0c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["UnitCellTransformation",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/UnitCellTransformation"]], "InlineFormula",
  ExpressionUUID->"a193ee35-0356-4694-ae63-355023079996"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SystematicAbsentQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SystematicAbsentQ"]], "InlineFormula",
  ExpressionUUID->"ed721cc2-539e-4c73-a870-fbc744ff7c35"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentPositions",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentPositions"]], 
  "InlineFormula",ExpressionUUID->"36a8138b-d342-4efd-92f2-04a4215bcce2"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"96096377-c958-45d0-b85b-52b312b80990"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$GroupSymbolRedirect",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$GroupSymbolRedirect"]], "InlineFormula",
  ExpressionUUID->"79fde1c5-05a5-4d3d-b959-a8c8177da2fd"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"98b4fb0d-3c4a-49b3-942c-bff02f5135b3"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"366b07bd-2b00-42a8-847c-e0ae9d7896c4"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$SpaceGroups",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$SpaceGroups"]], "InlineFormula",
  ExpressionUUID->"13454f80-5845-40a0-b609-172e79b21306"]
}], "SeeAlso",
 CellChangeTimes->{{3.730400231492009*^9, 3.730400278135812*^9}, {
   3.7438654598935747`*^9, 3.743865459894114*^9}, 3.744699235329928*^9},
 CellID->929782353,ExpressionUUID->"b44e7d5e-1ae2-49c5-96b4-3c0cf7b5b2c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"201b8933-1481-411f-9701-262439e3f943"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"efa847e6-580f-43d4-a83f-f50c6c2b62d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"7c446e60-47ed-4b70-baa3-93e95191033d"],

Cell[TextData[{
 "Query the data on for example ",
 Cell[BoxData[
  FormBox[
   RowBox[{"P", "\[VeryThinSpace]", 
    SubscriptBox["6", "3"]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "3d2b3009-b2ac-4888-93b1-c258b0ba9489"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.7132627417625713`*^9, 3.713262760972701*^9}, {
  3.730399982958281*^9, 3.730399993160338*^9}, {3.73040007544715*^9, 
  3.730400076652615*^9}, {3.730400121803652*^9, 3.730400123539447*^9}},
 CellID->881536695,ExpressionUUID->"128b60cd-34ed-4ee3-830e-0ad08ef686ea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymmetryData", "[", "\"\<P63\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.713260426953594*^9, 3.7132604384880743`*^9}, {
   3.713262679138461*^9, 3.7132626928678513`*^9}, {3.713262726342255*^9, 
   3.713262729246105*^9}, {3.7303999749367523`*^9, 3.7304000109104*^9}, {
   3.7304000621423807`*^9, 3.730400064060738*^9}, {3.730400115773623*^9, 
   3.730400116499444*^9}, 3.737968553832774*^9},
 CellLabel->"In[1]:=",
 CellID->1416148359,ExpressionUUID->"9280dfd6-6773-4bf4-a473-37a06f97b8c8"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Name\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"Symbol\"\>", 
       "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)\"\>"}], 
      ",", 
      RowBox[{"\<\"HermannMauguinShort\"\>", "\[Rule]", "\<\"P 63\"\>"}], ",", 
      RowBox[{"\<\"HermannMauguinFull\"\>", "\[Rule]", "\<\"P 63\"\>"}], ",", 
      
      RowBox[{"\<\"SchoenfliesSymbol\"\>", 
       "\[Rule]", "\<\"\\!\\(\\*SubsuperscriptBox[\\(C\\), \\(6\\), \
\\(6\\)]\\)\"\>"}], ",", 
      RowBox[{"\<\"HallString\"\>", "\[Rule]", "\<\"P 6c\"\>"}]}], 
     "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"SpaceGroupNumber\"\>", "\[Rule]", "173"}], ",", 
   RowBox[{"\<\"LaueClass\"\>", "\[Rule]", "\<\"6/m\"\>"}], ",", 
   RowBox[{"\<\"CrystalSystem\"\>", "\[Rule]", "\<\"Hexagonal\"\>"}], ",", 
   RowBox[{"\<\"Properties\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"CentrosymmetricQ\"\>", "\[Rule]", "False"}], ",", 
      RowBox[{"\<\"SohnckeGroupQ\"\>", "\[Rule]", "True"}]}], 
     "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Setting\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"SymmetryOperations\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          FractionBox["1", "2"]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          FractionBox["1", "2"]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          FractionBox["1", "2"]}], "}"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"\<\"SpecialPositions\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Multiplicity\"\>", "\[Rule]", "6"}], ",", 
        RowBox[{"\<\"WyckoffLetter\"\>", "\[Rule]", "\<\"c\"\>"}], ",", 
        RowBox[{"\<\"SiteSymmetry\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
        RowBox[{"\<\"Coordinates\"\>", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\<\"x\"\>", ",", "\<\"y\"\>", ",", "\<\"z\"\>"}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "\<\"y\"\>"}], ",", 
             RowBox[{"\<\"x\"\>", "-", "\<\"y\"\>"}], ",", "\<\"z\"\>"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\<\"x\"\>"}], "+", "\<\"y\"\>"}], ",", 
             RowBox[{"-", "\<\"x\"\>"}], ",", "\<\"z\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "\<\"x\"\>"}], ",", 
             RowBox[{"-", "\<\"y\"\>"}], ",", 
             RowBox[{
              FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"y\"\>", ",", 
             RowBox[{
              RowBox[{"-", "\<\"x\"\>"}], "+", "\<\"y\"\>"}], ",", 
             RowBox[{
              FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\<\"x\"\>", "-", "\<\"y\"\>"}], ",", "\<\"x\"\>", ",", 
             RowBox[{
              FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}]}], "}"}]}]}],
        "\[RightAssociation]"}], ",", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Multiplicity\"\>", "\[Rule]", "2"}], ",", 
        RowBox[{"\<\"WyckoffLetter\"\>", "\[Rule]", "\<\"b\"\>"}], ",", 
        RowBox[{"\<\"SiteSymmetry\"\>", "\[Rule]", "\<\"3..\"\>"}], ",", 
        RowBox[{"\<\"Coordinates\"\>", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             FractionBox["1", "3"], ",", 
             FractionBox["2", "3"], ",", "\<\"z\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             FractionBox["2", "3"], ",", 
             FractionBox["1", "3"], ",", 
             RowBox[{
              FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}]}], "}"}]}]}],
        "\[RightAssociation]"}], ",", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Multiplicity\"\>", "\[Rule]", "2"}], ",", 
        RowBox[{"\<\"WyckoffLetter\"\>", "\[Rule]", "\<\"a\"\>"}], ",", 
        RowBox[{"\<\"SiteSymmetry\"\>", "\[Rule]", "\<\"3..\"\>"}], ",", 
        RowBox[{"\<\"Coordinates\"\>", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "\<\"z\"\>"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{
              FractionBox["1", "2"], "+", "\<\"z\"\>"}]}], "}"}]}], "}"}]}]}],
        "\[RightAssociation]"}]}], "}"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.713262679793634*^9, 3.713262693155719*^9}, {
   3.713262727395315*^9, 3.7132627295518217`*^9}, 3.7132631015062513`*^9, 
   3.73039993018192*^9, {3.7303999752971277`*^9, 3.730400012352783*^9}, {
   3.730400064468562*^9, 3.730400079967227*^9}, {3.730400116675973*^9, 
   3.730400125380973*^9}},
 CellLabel->"Out[1]=",
 CellID->1594542814,ExpressionUUID->"e1e7e491-8191-4f7e-b30c-3c738daa8473"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "dfed1f72-b8e8-4fcf-8048-860f349e4ac4"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->425129919,ExpressionUUID->"bd616cb9-3c4b-4efc-a5cf-c09612889c7e"],

Cell[TextData[{
 "Extract the space group number and Laue class of ",
 Cell[BoxData[
 "Aeaa"], "InlineFormula",ExpressionUUID->
  "cd0296fc-dd20-44ca-aef6-b94e14413836"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.713262766754958*^9, 3.71326281126193*^9}},
 CellID->480455064,ExpressionUUID->"871ee272-3048-448d-962f-20db79ceb292"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetSymmetryData", "[", 
    RowBox[{"\"\<Aeaa\>\"", ",", "#"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"\"\<SpaceGroupNumber\>\"", ",", "\"\<LaueClass\>\""}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.713262812161661*^9, 3.713262850120472*^9}, 
   3.737968553965145*^9},
 CellLabel->"In[1]:=",
 CellID->1559717056,ExpressionUUID->"4d281471-d907-4313-9454-04a808d40b35"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"68", ",", "\<\"mmm\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.713262817795557*^9, 3.713262850379583*^9, {3.713262904973126*^9, 
   3.713262922361858*^9}, 3.713263017830414*^9, 3.713263099069439*^9, 
   3.730400138649457*^9},
 CellLabel->"Out[1]=",
 CellID->2040552677,ExpressionUUID->"d0f7706e-1b37-4cae-9cd5-cff69e3bfc51"]
}, Open  ]],

Cell["Is it the main entry of this space group?", "ExampleText",
 CellChangeTimes->{{3.713263028295513*^9, 3.713263045040553*^9}},
 CellID->1000070073,ExpressionUUID->"2b6a6d03-71e4-4c7c-b9f6-479bfebacd01"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymmetryData", "[", 
  RowBox[{"\"\<Aeaa\>\"", ",", "\"\<MainEntryQ\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.7132630465395117`*^9, 3.713263059733712*^9}, 
   3.7379685540862503`*^9},
 CellLabel->"In[2]:=",
 CellID->210824031,ExpressionUUID->"08126f8e-a52d-4f39-9604-a984ed1d5303"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.713263060003087*^9, 3.713263099205492*^9, 
  3.730400140318872*^9},
 CellLabel->"Out[2]=",
 CellID->2062706507,ExpressionUUID->"36a8242d-2088-4ac2-97e2-dc0b46b83f1d"]
}, Open  ]],

Cell["Find the symbol of the corresponding main entry:", "ExampleText",
 CellChangeTimes->{{3.7132630651197844`*^9, 3.713263076985937*^9}},
 CellID->520889814,ExpressionUUID->"9703c82d-992f-4351-b95d-8ee64665eac4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymmetryData", "[", 
  RowBox[{"\"\<Aeaa\>\"", ",", "\"\<Symbol\>\"", ",", 
   RowBox[{"\"\<UseMainEntry\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.713263078106181*^9, 3.713263092413095*^9}, 
   3.7379685541958437`*^9},
 CellLabel->"In[3]:=",
 CellID->272918451,ExpressionUUID->"76f3683c-126a-47d2-bd94-000a646506bc"],

Cell[BoxData["\<\"Ccce\"\>"], "Output",
 CellChangeTimes->{{3.713263092674778*^9, 3.713263099371428*^9}, 
   3.7304001419240828`*^9},
 CellLabel->"Out[3]=",
 CellID->1751329953,ExpressionUUID->"aef6e141-5f33-4cd1-90aa-1ded9818cf52"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"9adbaf3d-6a11-4baf-807f-a922ef993ac0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "6dd7dedb-0d52-4bc8-a7b9-5445d41d827f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"83ad57bb-18ab-4c12-ab63-0f598969f824"],

Cell[TextData[{
 "Silicon has space group ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "\[VeryThinSpace]", "d", "\[VeryThinSpace]", 
    OverscriptBox["3", "_"], "\[VeryThinSpace]", "m"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"91a36e10-f297-4d5d-b167-04bb14d034d6"],
 ". Since the data is stored in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"14a45ad7-91c7-426b-809c-99ddf2f5a365"],
 ", the function will automatically work with this space group:"
}], "ExampleText",
 CellChangeTimes->{{3.71358889887761*^9, 3.713588976794034*^9}, {
  3.714368169799419*^9, 3.714368173083119*^9}, {3.730400149532498*^9, 
  3.730400179972433*^9}},
 CellID->511395723,ExpressionUUID->"0b138df4-3dc2-44e3-8d14-1fc09f35071f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymmetryData", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "\"\<SpaceGroupNumber\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7135889922367067`*^9, 3.713589001647698*^9}, 
   3.7379685543057423`*^9},
 CellLabel->"In[1]:=",
 CellID->1359328339,ExpressionUUID->"c00b00c9-b4bb-4010-a4d5-d226c2b15e2c"],

Cell[BoxData["227"], "Output",
 CellChangeTimes->{3.713589037757846*^9, 3.730400185973741*^9},
 CellLabel->"Out[1]=",
 CellID->765683943,ExpressionUUID->"b1ddfd5c-bdfe-4c38-8b79-ce6ffc032df6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "25979afd-6d42-426e-adcb-c46f9ba1d609"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1200176948,ExpressionUUID->"598bf9f9-6fed-4d76-a76a-2a00f9dff6f6"],

Cell["\<\
Sometimes the formatted space group symbols are not unique to a certain \
setting:\
\>", "ExampleText",
 CellChangeTimes->{{3.7143705676460342`*^9, 3.714370625708252*^9}},
 CellID->60068765,ExpressionUUID->"f898fb5c-5d38-43f7-8713-f805490d96d4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"sg1", "=", "\"\<P 1 21/n 1\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sg2", "=", "\"\<P 1 1 21/n\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.714370651268914*^9, 3.714370670216674*^9}},
 CellLabel->"In[1]:=",
 CellID->1870633117,ExpressionUUID->"cf2d08e6-f201-4256-bcfb-93b7740d8604"],

Cell["\<\
By default, the function will return a symbol that is not ambiguous. The \
shortest, formatted representations are reserved for the main entry-space \
groups.\
\>", "ExampleText",
 CellChangeTimes->{{3.714370774570107*^9, 3.714370776089579*^9}, {
  3.7143708983475657`*^9, 3.714370957470993*^9}},
 CellID->1672821355,ExpressionUUID->"c7e98e8a-3719-4709-8a17-9d6f67120c75"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetSymmetryData", "[", 
    RowBox[{"#", ",", "\"\<Symbol\>\""}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"sg1", ",", "sg2"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.714370631728216*^9, 3.714370634379953*^9}, {
   3.714370672397916*^9, 3.71437067952843*^9}, 3.7379685544262457`*^9},
 CellLabel->"In[3]:=",
 CellID->1241370070,ExpressionUUID->"068c1c76-2f1c-41b7-bd57-cd1dec19b4d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>", 
   ",", "\<\"P 1 1 21/n\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.714370679988916*^9, 3.714370729859666*^9, 
  3.714371370163311*^9, 3.7304001910312862`*^9},
 CellLabel->"Out[3]=",
 CellID->515459363,ExpressionUUID->"425f39c6-c1c6-4c23-9f79-c83e39afcaeb"]
}, Open  ]],

Cell[TextData[{
 "One may turn this off with the ",
 Cell[BoxData[
 "\"\<UnambiguousSymbol\>\""], "InlineFormula",ExpressionUUID->
  "6d31c09c-2776-4ebd-9c81-44644d1b50cd"],
 " option:"
}], "ExampleText",
 CellChangeTimes->{{3.714370973085025*^9, 3.714370992997284*^9}},
 CellID->1796910173,ExpressionUUID->"9824e54a-ce4d-4893-acda-ab127580d39b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetSymmetryData", "[", 
    RowBox[{"#", ",", "\"\<Symbol\>\"", ",", 
     RowBox[{"\"\<UnambiguousSymbol\>\"", "\[Rule]", "False"}]}], "]"}], 
   "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"sg1", ",", "sg2"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7143707017823563`*^9, 3.714370707945548*^9}, {
   3.714370760370069*^9, 3.714370760905538*^9}, 3.7379685545264378`*^9},
 CellLabel->"In[4]:=",
 CellID->1072066299,ExpressionUUID->"861faaa3-3cba-4340-9b54-e8c578d87260"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7143707082467823`*^9, 3.714370730030506*^9}, 
   3.714370761335875*^9, 3.714371370285783*^9, 3.730400193583457*^9},
 CellLabel->"Out[4]=",
 CellID->124686313,ExpressionUUID->"a3010fe2-6d49-4435-8a34-3e9b5deda7d7"]
}, Open  ]],

Cell[TextData[{
 "In practice, when ",
 Cell[BoxData[
  RowBox[{"\"\<UnambiguousSymbol\>\"", "\[Rule]", "True"}]], "InlineFormula",
  ExpressionUUID->"7ad23708-6515-47be-9664-01a35169f394"],
 " (as it is by default), the corresponding full Hermann\[Dash]Mauguin symbol \
is run through ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"aa4e567a-acaa-495c-b164-9fe09a6056a2"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.7143710096861563`*^9, 3.714371011548436*^9}, {
  3.714371224734469*^9, 3.714371253502486*^9}, {3.714371314675617*^9, 
  3.714371342437635*^9}, {3.714383400509253*^9, 3.714383404933506*^9}},
 CellID->1143020381,ExpressionUUID->"d00791d2-e6cf-4428-8dad-72e16ff07a85"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "51b0e549-cf36-4330-bcf1-0cb33f6b8d2a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"29ae7e78-85a9-469b-baf0-d3f5dd5fc589"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "ebae96b9-8ba6-4ecc-8173-5fea23b3efff"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"0efc4578-dc17-4aa2-8472-3ea76270c8b3"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "98673523-a12c-4ec6-a26c-1c60e39cf81c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"c7d0a1f5-b7c7-4ddf-ac14-79182930db53"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "665a8fd9-073f-451a-8f75-4f1d1bcab7e9"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"80e87399-0e60-4b12-b2a8-6a32733c34fd"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "309195aa-ffa6-4556-98be-e077bdc5e50f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"bc8a098e-8387-47bc-a7c9-2b8c2d7c09b8"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "aae87f26-8507-48d0-b69c-d61e35c6ab4e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"3e4697a9-9c40-43ce-affc-8e5abef01f95"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "7562ab8a-acd7-4a5a-833f-aeadbd4956a7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"2591f3fa-c82b-4188-b516-9f32233540f7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymmetryData", "[", 
  RowBox[{"\"\<Pmma\>\"", ",", "\"\<InvalidLabel\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.7132577134388866`*^9, 3.713257750248589*^9}, 
   3.737968554612615*^9},
 CellLabel->"In[1]:=",
 CellID->962902887,ExpressionUUID->"76533fb1-7518-4c8e-ac55-451e6c957b28"],

Cell[BoxData[
 TemplateBox[{
  "GetSymmetryData","InvalidLabel",
   "\"\[LeftGuillemet]\\!\\(\\*RowBox[{\\\"\\\\\\\"InvalidLabel\\\\\\\"\\\"}]\
\\)\[RightGuillemet] is not a recognised label.\"",2,1,1,26763657276525152245,
   "Local","MaXrd`GetSymmetryData"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.7132631460539618`*^9, 3.7304002035401163`*^9, 
  3.785689254605878*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->53528469,ExpressionUUID->"82c4278b-9eab-4af0-b036-9c94763f1b23"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.713263146064652*^9, 3.7304002035637703`*^9, 
  3.785689254653013*^9},
 CellLabel->"Out[1]=",
 CellID->2004814037,ExpressionUUID->"4ad6ca04-2d2f-412d-ac19-a300d119fdd1"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "512e4362-7dc5-46bd-afd8-84b4acbf9a4e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"599547ad-5bf6-4816-8a1c-e8255d45a2a2"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "4aecb42a-ba73-4238-90a1-5d0fc0485bc2"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"e856c71e-898a-4caf-bd3e-ff4c83464da3"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"4e76aa5c-4d3a-4110-ab4e-22d018a23bb5"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.713262556308559*^9, 3.713262559433713*^9}},
 CellID->446036623,ExpressionUUID->"104401cb-b7c8-4367-bc6b-f02fbf5872de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetSymmetryData", "::", "InvalidLabel"}], "=", 
   "\"\<\[LeftGuillemet]`1`\[RightGuillemet] is not a recognised \
label.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GetSymmetryData", "::", "Incompatible"}], "=", 
    "\"\<Incompatible group type and label.\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "GetSymmetryData"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<UnambiguousSymbol\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<UseMainEntry\>\"", "\[Rule]", "False"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "GetSymmetryData"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_.", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.7131810413608723`*^9, 3.713181077064309*^9}, {
  3.713181132188043*^9, 3.7131811983538933`*^9}, {3.713255047767827*^9, 
  3.713255056779663*^9}, {3.713255506659046*^9, 3.713255517296316*^9}, {
  3.713255553288314*^9, 3.7132555744919357`*^9}, {3.7136030670066347`*^9, 
  3.7136030675094767`*^9}, {3.7143685834948673`*^9, 3.714368593787736*^9}, {
  3.71785181409776*^9, 3.717851843742972*^9}, {3.7379685452616777`*^9, 
  3.737968545394628*^9}, {3.756711602445937*^9, 3.7567116052607718`*^9}, {
  3.756711644373386*^9, 3.7567116716863194`*^9}, {3.785392030238619*^9, 
  3.785392081267581*^9}},
 CellLabel->"In[700]:=",
 CellID->576956579,ExpressionUUID->"4cbb7194-df59-4ba9-87ce-1738b9cc634a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetSymmetryData", "[", 
   RowBox[{"input_String", ",", 
    RowBox[{"label_String:", "\"\<Lookup\>\""}], ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "group", ",", "validLabels", ",", "type", ",", "data", ",", "dataMain", 
      ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"Extract", " ", "point"}], "-", " ", 
      RowBox[{"or", " ", "space", " ", "group", " ", 
       RowBox[{"(", 
        RowBox[{"also", " ", "check", " ", "$CrystalData"}], ")"}]}]}], " ", 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"group", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<GetPointSpaceGroupCrystal\>\"", ",", "input"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"validLabels", "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Lookup\>\"", ",", "\"\<Symbol\>\"", ",", 
        "\"\<HermannMauguinFull\>\"", ",", "\"\<HermannMauguinShort\>\"", ",",
         "\t", "\"\<HallString\>\"", ",", "\"\<PointGroupNumber\>\"", ",", 
        "\"\<SpaceGroupNumber\>\"", ",", "\"\<LaueClass\>\"", ",", 
        "\"\<CrystalSystem\>\"", ",", "\"\<Centring\>\"", ",", 
        "\"\<MainEntryQ\>\"", ",", "\"\<GroupType\>\"", ",", 
        "\"\<Setting\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MemberQ", "[", 
         RowBox[{"validLabels", ",", "label"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"GetSymmetryData", "::", "InvalidLabel"}], ",", "label"}], 
         "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"data", "=", 
      RowBox[{"$GroupSymbolRedirect", "@", "group"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"type", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"$PointGroups", ",", "data", ",", "Infinity"}], "]"}], ",", 
        "\"\<PointGroup\>\"", ",", "\"\<SpaceGroup\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"type", "===", "\"\<PointGroup\>\""}], "&&", 
          RowBox[{"label", "===", "\"\<SpaceGroupNumber\>\""}]}], ")"}], "||",
         "\[IndentingNewLine]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"type", "===", "\"\<SpaceGroup\>\""}], "&&", 
          RowBox[{"label", "===", "\"\<PointGroupNumber\>\""}]}], ")"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"GetSymmetryData", "::", "incompatible"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"label", "===", "\"\<GroupType\>\""}], ",", 
       RowBox[{"Return", "@", "type"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Group", " ", "designation"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"group", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"type", "===", "\"\<SpaceGroup\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"data", "[", 
         RowBox[{"\"\<Name\>\"", ",", "\"\<HermannMauguinFull\>\""}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"data", "[", 
         RowBox[{"\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"label", "\[Equal]", "\"\<Centring\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"type", "\[Equal]", "\"\<PointGroup\>\""}], ",", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"GetSymmetryData", "::", "Incompatible"}], "]"}], ";", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "@", 
         RowBox[{"StringTake", "[", 
          RowBox[{"group", ",", "1"}], "]"}]}]}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Ascertain", " ", "main", " ", "entry"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"dataMain", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"type", "===", "\"\<SpaceGroup\>\""}], ",", "\t", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"temp", "=", 
          RowBox[{"Position", "[", 
           RowBox[{"$SpaceGroups", ",", "group"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"$SpaceGroups", "[", 
          RowBox[{"temp", "\[LeftDoubleBracket]", 
           RowBox[{"1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], 
          "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"temp", "=", 
          RowBox[{"Position", "[", 
           RowBox[{"$PointGroups", ",", "data"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"$PointGroups", "[", 
          RowBox[{"temp", "\[LeftDoubleBracket]", 
           RowBox[{"1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], 
          "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{
       "Use", " ", "main", " ", "entry", " ", "corresponding", " ", "to", " ",
         "input"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"TrueQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<UseMainEntry\>\"", "]"}]}], ",", 
       RowBox[{"data", "=", "dataMain"}]}], "]"}], ";", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Executing", " ", "commands"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"label", "===", "\"\<Lookup\>\""}], ",", 
       RowBox[{"Return", "@", "data"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"label", "===", "\"\<MainEntryQ\>\""}], ",", 
       RowBox[{"Return", "@", 
        RowBox[{"KeyExistsQ", "[", 
         RowBox[{"data", ",", 
          RowBox[{"type", "<>", "\"\<Number\>\""}]}], "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
          "\"\<Symbol\>\"", ",", "\"\<HermannMauguinFull\>\"", ",", 
           "\[IndentingNewLine]", "\"\<HermannMauguinShort\>\"", ",", 
           "\"\<HallString\>\""}], "}"}], ",", "label"}], "]"}], ",", 
       "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Optional", ":", " ", 
         RowBox[{"Let", " ", "output", " ", "be", " ", "unambiguous"}]}], " ",
         "*)"}], "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"TrueQ", "@", 
           RowBox[{"OptionValue", "[", "\"\<UnambiguousSymbol\>\"", "]"}]}], "&&", 
          RowBox[{"label", "===", "\"\<Symbol\>\""}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Return", "@", 
          RowBox[{"ToStandardSetting", "@", 
           RowBox[{"data", "[", 
            RowBox[{"\"\<Name\>\"", ",", "\"\<HermannMauguinFull\>\""}], 
            "]"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Return", "@", 
          RowBox[{"data", "[", 
           RowBox[{"\"\<Name\>\"", ",", "label"}], "]"}]}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"label", "===", "\"\<Setting\>\""}], ",", 
       RowBox[{"Return", "@", 
        RowBox[{"data", "@", "label"}]}]}], "]"}], ";", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
          "\"\<PointGroupNumber\>\"", ",", "\"\<SpaceGroupNumber\>\"", ",", 
           "\[IndentingNewLine]", "\"\<LaueClass\>\"", ",", 
           "\"\<CrystalSystem\>\""}], "}"}], ",", "label"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "@", 
        RowBox[{"dataMain", "@", "label"}]}]}], "\[IndentingNewLine]", 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.685682044952615*^9, 3.6856820504144278`*^9}, {
   3.685682141325856*^9, 3.685682178024384*^9}, {3.685682225953554*^9, 
   3.6856822264375687`*^9}, 3.685686496167932*^9, {3.6856944477863503`*^9, 
   3.68569446921675*^9}, {3.685694605238812*^9, 3.6856946062341757`*^9}, {
   3.685695893282233*^9, 3.685695896451762*^9}, {3.6856960214137506`*^9, 
   3.6856960251722317`*^9}, {3.687521359980748*^9, 3.687521435237295*^9}, {
   3.6875214687991743`*^9, 3.687521494623404*^9}, {3.6876768933160543`*^9, 
   3.687676910356525*^9}, {3.712650700261273*^9, 3.7126507027975063`*^9}, {
   3.7126508246994467`*^9, 3.7126508373862047`*^9}, {3.712650880057147*^9, 
   3.71265091066479*^9}, {3.712650944551971*^9, 3.712650951383466*^9}, {
   3.712651061181072*^9, 3.7126510654943533`*^9}, {3.71265113385168*^9, 
   3.712651134019478*^9}, {3.7126512882721786`*^9, 3.712651310583632*^9}, {
   3.712651420262867*^9, 3.712651422476676*^9}, {3.7131809448179398`*^9, 
   3.7131810356054564`*^9}, {3.713181086907085*^9, 3.713181107379854*^9}, {
   3.713181159084453*^9, 3.713181161701188*^9}, {3.713181213099559*^9, 
   3.713181282581812*^9}, {3.713181395925655*^9, 3.71318151312195*^9}, {
   3.7131815453258333`*^9, 3.713181580107853*^9}, {3.713251827327198*^9, 
   3.7132518702424192`*^9}, {3.713251944205166*^9, 3.713251965880468*^9}, 
   3.713253926836597*^9, {3.713254030079486*^9, 3.713254056001268*^9}, {
   3.713254601042029*^9, 3.713254606903442*^9}, {3.713255033399905*^9, 
   3.7132550452582607`*^9}, {3.713255173715601*^9, 3.713255178277837*^9}, {
   3.713255269047741*^9, 3.713255296701899*^9}, {3.7132554233367357`*^9, 
   3.713255456956232*^9}, {3.713255524341331*^9, 3.7132555370046387`*^9}, {
   3.713255630041746*^9, 3.713255754351347*^9}, {3.713255878197596*^9, 
   3.713255884948148*^9}, {3.713256297692585*^9, 3.7132563372575808`*^9}, {
   3.71325646948123*^9, 3.713256549123855*^9}, {3.713256593063978*^9, 
   3.713256606351722*^9}, {3.713256684861882*^9, 3.713256723112616*^9}, {
   3.7132567780590973`*^9, 3.713256778951418*^9}, {3.7132569482601748`*^9, 
   3.7132569919648247`*^9}, {3.7132570445646544`*^9, 3.713257318364801*^9}, {
   3.713257422816969*^9, 3.71325751243474*^9}, {3.713257781793808*^9, 
   3.713257789422627*^9}, {3.713257920552896*^9, 3.713257951558282*^9}, {
   3.713258002738751*^9, 3.713258023002263*^9}, {3.713258132808494*^9, 
   3.7132581573886557`*^9}, {3.713258280011162*^9, 3.713258306930822*^9}, {
   3.713258406157126*^9, 3.7132584079015827`*^9}, {3.713258483627623*^9, 
   3.713258501832863*^9}, {3.713258874176128*^9, 3.7132589621947727`*^9}, {
   3.713259006586093*^9, 3.71325902705698*^9}, {3.713259151029574*^9, 
   3.713259157722631*^9}, {3.713259295981337*^9, 3.713259305376504*^9}, {
   3.713259340305367*^9, 3.713259344080024*^9}, {3.7132593807762957`*^9, 
   3.713259395145294*^9}, {3.7132594289741507`*^9, 3.7132595096258097`*^9}, {
   3.713259724575598*^9, 3.7132597478771753`*^9}, {3.713259845692296*^9, 
   3.7132598664044523`*^9}, {3.713259951731834*^9, 3.713259957818882*^9}, {
   3.7132601222001143`*^9, 3.7132601792802553`*^9}, {3.71326028434074*^9, 
   3.7132602890460987`*^9}, {3.7132603605954638`*^9, 
   3.7132603734089727`*^9}, {3.7132604960901403`*^9, 3.713260498539002*^9}, {
   3.713260967143147*^9, 3.7132610324499474`*^9}, {3.713261075884906*^9, 
   3.713261088728733*^9}, {3.713261130434133*^9, 3.713261149036117*^9}, {
   3.7132611849243603`*^9, 3.7132611850904217`*^9}, {3.713261308398665*^9, 
   3.713261362591132*^9}, {3.7132614080968943`*^9, 3.713261418237978*^9}, {
   3.713261503519844*^9, 3.713261575487731*^9}, {3.713261606302849*^9, 
   3.713261608471685*^9}, {3.713261675536581*^9, 3.7132617730431957`*^9}, {
   3.7132628769562807`*^9, 3.713262902060273*^9}, {3.7132629411877193`*^9, 
   3.713262972458766*^9}, {3.713497308178856*^9, 3.713497311117917*^9}, {
   3.7134975717584867`*^9, 3.71349757189139*^9}, {3.7134976066938972`*^9, 
   3.7134976090462093`*^9}, {3.713588548318825*^9, 3.7135886446923227`*^9}, {
   3.71360308316119*^9, 3.7136031245029917`*^9}, {3.713604419569841*^9, 
   3.713604489759857*^9}, {3.713604571895423*^9, 3.713604587756934*^9}, {
   3.713604657988145*^9, 3.7136046586250687`*^9}, {3.714368625065659*^9, 
   3.714368677606341*^9}, {3.714368711557106*^9, 3.7143687468505793`*^9}, {
   3.7143688423652163`*^9, 3.714368893670738*^9}, {3.7143691901424303`*^9, 
   3.714369196393856*^9}, {3.7143692468223867`*^9, 3.714369320979141*^9}, {
   3.7143694816793833`*^9, 3.714369533987314*^9}, {3.714383361847651*^9, 
   3.71438336499629*^9}, {3.714457630929338*^9, 3.714457636104167*^9}, {
   3.716614813072504*^9, 3.716614815003395*^9}, {3.7166159509002*^9, 
   3.71661595367447*^9}, {3.7166160223818274`*^9, 3.716616068780747*^9}, {
   3.717740896766366*^9, 3.717740919790469*^9}, {3.717828717817094*^9, 
   3.717828728359373*^9}, 3.717829526691352*^9, {3.717829561834627*^9, 
   3.717829567842368*^9}, {3.717829711332901*^9, 3.7178297138923473`*^9}, {
   3.717829820148017*^9, 3.71782984300292*^9}, {3.717829873857195*^9, 
   3.71782999705438*^9}, {3.717830146665791*^9, 3.717830174018708*^9}, {
   3.717830961192195*^9, 3.717830998176252*^9}, {3.7178516904059267`*^9, 
   3.717851800821513*^9}, 3.7178518557153673`*^9, {3.7178520759837837`*^9, 
   3.717852103172366*^9}, {3.7178521808521338`*^9, 3.717852207898322*^9}, {
   3.7263414849809303`*^9, 3.7263415053987093`*^9}, {3.726341580490561*^9, 
   3.726341596874646*^9}, {3.72767546182131*^9, 3.727675588001774*^9}, {
   3.727677599027997*^9, 3.7276776008168907`*^9}, {3.727679791641213*^9, 
   3.7276797934416122`*^9}, 3.7276806018676662`*^9, {3.7276807387029448`*^9, 
   3.7276807612601*^9}, {3.728625292765798*^9, 3.728625298660047*^9}, {
   3.728625349898917*^9, 3.7286253534828987`*^9}, {3.728674363211102*^9, 
   3.7286744204279222`*^9}, {3.728674524191201*^9, 3.728674527109857*^9}, 
   3.728674560656323*^9, {3.737968545464172*^9, 3.737968545759601*^9}, {
   3.742813077399351*^9, 3.742813176814568*^9}, 3.743865455795642*^9, {
   3.7585295289114113`*^9, 3.758529536216538*^9}, {3.759519400784865*^9, 
   3.7595194010715*^9}, 3.762793093433989*^9, {3.7853909358609943`*^9, 
   3.785391074473959*^9}, {3.7853911060423*^9, 3.785391422081409*^9}, {
   3.7853919174900208`*^9, 3.78539211230951*^9}, {3.785392548533534*^9, 
   3.785392574948049*^9}, {3.786968460923102*^9, 3.786968462045446*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[705]:=",
 CellID->1020557048,ExpressionUUID->"866342eb-01cb-4eeb-8a21-6991835edde2"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[30669, 813, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"9adbaf3d-6a11-4baf-807f-a922ef993ac0",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 58500, 1457}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"ee75b892-7108-4b2a-9202-c69179d28e22",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"8bc609d8-ea4b-4734-8b1b-eab49fd0ae93",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"0aa13d9d-407f-4297-a6e4-50b9072dbc97",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"c0443599-9598-4358-83f5-4675d02234c9",
 CellID->605800465],
Cell[1624, 50, 172, 3, 30, "Categorization",ExpressionUUID->"ad8c4d57-67e9-43b7-ba24-1fe26177555c",
 CellID->468444828],
Cell[1799, 55, 166, 2, 30, "Categorization",ExpressionUUID->"14120941-01f2-409b-8976-fb1e13e837a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2002, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"90c7bb01-eb21-4f87-94a7-ba60efcb05f0",
 CellID->477174294],
Cell[2115, 65, 100, 1, 70, "Keywords",ExpressionUUID->"7f5f428c-0111-4e09-a03a-6d5d03f0f0f6",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2252, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"846f764c-7a9a-44d0-bf80-83b7758bf426",
 CellID->1872225408],
Cell[2375, 74, 149, 2, 70, "Template",ExpressionUUID->"97b35f43-9f1e-425c-89f6-6b7576b4f5f8",
 CellID->1562036412],
Cell[2527, 78, 137, 2, 70, "Template",ExpressionUUID->"0564d831-4860-42be-878b-413419223276",
 CellID->158391909],
Cell[2667, 82, 136, 2, 70, "Template",ExpressionUUID->"374c2921-e6fe-40dc-b923-ed86053ad0f8",
 CellID->1360575930],
Cell[2806, 86, 137, 2, 70, "Template",ExpressionUUID->"3a14d65a-913d-4450-8691-ea3635e2fc4e",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2980, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"d9bd560a-b9eb-400d-9e8b-60246e1cfcec",
 CellID->307771771],
Cell[3091, 96, 118, 2, 70, "Details",ExpressionUUID->"42511942-c529-42d2-b023-f73410393891",
 CellID->670882175],
Cell[3212, 100, 124, 2, 70, "Details",ExpressionUUID->"96416b49-b68a-4056-828d-3bb24fbd0a7f",
 CellID->350963985],
Cell[3339, 104, 119, 2, 70, "Details",ExpressionUUID->"72a11754-3173-4b1b-bbfa-c35783c139bb",
 CellID->8391405],
Cell[3461, 108, 124, 2, 70, "Details",ExpressionUUID->"75227892-2269-4637-96f8-3d722b8a3e6d",
 CellID->3610269],
Cell[3588, 112, 116, 2, 70, "Details",ExpressionUUID->"21fba95b-66da-4a6a-a189-d49073d95e51",
 CellID->401364205],
Cell[3707, 116, 116, 2, 70, "Details",ExpressionUUID->"917e9f7e-744d-4bcf-9f29-f19966a4a3cf",
 CellID->350204745],
Cell[3826, 120, 118, 2, 70, "Details",ExpressionUUID->"4c6cf66e-98d4-49b7-96d3-5e4c379028db",
 CellID->732958810],
Cell[3947, 124, 133, 2, 70, "Details",ExpressionUUID->"86e28411-eb9e-4352-8164-46002fcb4308",
 CellID->222905350],
Cell[4083, 128, 122, 2, 70, "Details",ExpressionUUID->"ed037ef6-10dc-471a-b7a1-dcc4a443c8ea",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4242, 135, 113, 1, 63, "ObjectName",ExpressionUUID->"10aff571-ac9c-4397-8363-dddf7556bb3d",
 CellID->1224892054],
Cell[4358, 138, 1015, 24, 77, "Usage",ExpressionUUID->"d3e18394-6e76-4a10-ae00-07df08f5d2a7",
 CellID->982511436],
Cell[5376, 164, 1155, 28, 61, "Notes",ExpressionUUID->"fd09336e-caf0-4fbf-aeb1-40099e3035e0",
 CellID->1734139461],
Cell[6534, 194, 595, 14, 27, "Notes",ExpressionUUID->"7ea43514-4421-4ad8-ab86-5421c35cf46e",
 CellID->1067943069],
Cell[7132, 210, 4402, 81, 277, "2ColumnTableMod",ExpressionUUID->"b1b7d5c8-03d0-49d1-b768-dce27f385732",
 CellID->1506885577],
Cell[11537, 293, 1304, 40, 45, "Notes",ExpressionUUID->"d7a1062d-8de7-4d7f-9ff2-ae3e46775ccf",
 CellID->1980552350],
Cell[12844, 335, 246, 3, 25, "Notes",ExpressionUUID->"b9fea1f9-9f99-4c86-a923-21e439876930",
 CellID->1424649273],
Cell[13093, 340, 1093, 22, 77, "3ColumnTableMod",ExpressionUUID->"90a00264-946a-4386-b1d1-65156ffdb32b",
 CellID->1595584043]
}, Open  ]],
Cell[CellGroupData[{
Cell[14223, 367, 112, 1, 44, "TutorialsSection",ExpressionUUID->"346c06f1-60bf-4ae2-a75f-211e279c042b",
 CellID->250839057],
Cell[14338, 370, 100, 1, 16, "Tutorials",ExpressionUUID->"f9b36705-f5f5-4983-b93d-1352d6e45c96",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[14475, 376, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"5cf0c7a0-d2d9-48a5-9576-356f00e609c4",
 CellID->1268215905],
Cell[14616, 379, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"862a5bfd-922b-4a78-a491-dc01ab36c030",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[14766, 385, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"38c10112-497e-434b-a6f3-c75e0adc98f8",
 CellID->1584193535],
Cell[14889, 388, 583, 15, 29, "RelatedLinks",ExpressionUUID->"a3cbb4a6-60b2-4440-8d5f-315d5bfb5b8a",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[15509, 408, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"88126566-7f63-465a-bc01-013aaa2841ff",
 CellID->1255426704],
Cell[15622, 411, 2305, 57, 57, "SeeAlso",ExpressionUUID->"b44e7d5e-1ae2-49c5-96b4-3c0cf7b5b2c4",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[17964, 473, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"201b8933-1481-411f-9701-262439e3f943",
 CellID->38303248],
Cell[18079, 476, 101, 1, 16, "MoreAbout",ExpressionUUID->"efa847e6-580f-43d4-a83f-f50c6c2b62d2",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[18217, 482, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"7c446e60-47ed-4b70-baa3-93e95191033d",
 CellID->880084151],
Cell[18631, 495, 545, 12, 24, "ExampleText",ExpressionUUID->"128b60cd-34ed-4ee3-830e-0ad08ef686ea",
 CellID->881536695],
Cell[CellGroupData[{
Cell[19201, 511, 517, 8, 27, "Input",ExpressionUUID->"9280dfd6-6773-4bf4-a473-37a06f97b8c8",
 CellID->1416148359],
Cell[19721, 521, 7805, 197, 519, "Output",ExpressionUUID->"e1e7e491-8191-4f7e-b30c-3c738daa8473",
 CellID->1594542814]
}, Open  ]],
Cell[CellGroupData[{
Cell[27563, 723, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"bd616cb9-3c4b-4efc-a5cf-c09612889c7e",
 CellID->425129919],
Cell[27808, 730, 334, 8, 23, "ExampleText",ExpressionUUID->"871ee272-3048-448d-962f-20db79ceb292",
 CellID->480455064],
Cell[CellGroupData[{
Cell[28167, 742, 428, 11, 27, "Input",ExpressionUUID->"4d281471-d907-4313-9454-04a808d40b35",
 CellID->1559717056],
Cell[28598, 755, 370, 8, 25, "Output",ExpressionUUID->"d0f7706e-1b37-4cae-9cd5-cff69e3bfc51",
 CellID->2040552677]
}, Open  ]],
Cell[28983, 766, 206, 2, 22, "ExampleText",ExpressionUUID->"2b6a6d03-71e4-4c7c-b9f6-479bfebacd01",
 CellID->1000070073],
Cell[CellGroupData[{
Cell[29214, 772, 313, 6, 29, "Input",ExpressionUUID->"08126f8e-a52d-4f39-9604-a984ed1d5303",
 CellID->210824031],
Cell[29530, 780, 220, 4, 25, "Output",ExpressionUUID->"36a8242d-2088-4ac2-97e2-dc0b46b83f1d",
 CellID->2062706507]
}, Open  ]],
Cell[29765, 787, 214, 2, 22, "ExampleText",ExpressionUUID->"9703c82d-992f-4351-b95d-8ee64665eac4",
 CellID->520889814],
Cell[CellGroupData[{
Cell[30004, 793, 369, 7, 29, "Input",ExpressionUUID->"76f3683c-126a-47d2-bd94-000a646506bc",
 CellID->272918451],
Cell[30376, 802, 232, 4, 25, "Output",ExpressionUUID->"aef6e141-5f33-4cd1-90aa-1ded9818cf52",
 CellID->1751329953]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30669, 813, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"9adbaf3d-6a11-4baf-807f-a922ef993ac0",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[30849, 819, 242, 5, 33, "ExampleSection",ExpressionUUID->"83ad57bb-18ab-4c12-ab63-0f598969f824",
 CellID->1293636265],
Cell[31094, 826, 828, 18, 40, "ExampleText",ExpressionUUID->"0b138df4-3dc2-44e3-8d14-1fc09f35071f",
 CellID->511395723],
Cell[CellGroupData[{
Cell[31947, 848, 326, 7, 29, "Input",ExpressionUUID->"c00b00c9-b4bb-4010-a4d5-d226c2b15e2c",
 CellID->1359328339],
Cell[32276, 857, 192, 3, 25, "Output",ExpressionUUID->"b1ddfd5c-bdfe-4c38-8b79-ce6ffc032df6",
 CellID->765683943]
}, Open  ]],
Cell[CellGroupData[{
Cell[32505, 865, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"598bf9f9-6fed-4d76-a76a-2a00f9dff6f6",
 CellID->1200176948],
Cell[32751, 872, 255, 5, 22, "ExampleText",ExpressionUUID->"f898fb5c-5d38-43f7-8713-f805490d96d4",
 CellID->60068765],
Cell[33009, 879, 340, 7, 46, "Input",ExpressionUUID->"cf2d08e6-f201-4256-bcfb-93b7740d8604",
 CellID->1870633117],
Cell[33352, 888, 382, 7, 37, "ExampleText",ExpressionUUID->"c7e98e8a-3719-4709-8a17-9d6f67120c75",
 CellID->1672821355],
Cell[CellGroupData[{
Cell[33759, 899, 438, 10, 27, "Input",ExpressionUUID->"068c1c76-2f1c-41b7-bd57-cd1dec19b4d0",
 CellID->1241370070],
Cell[34200, 911, 357, 7, 26, "Output",ExpressionUUID->"425f39c6-c1c6-4c23-9f79-c83e39afcaeb",
 CellID->515459363]
}, Open  ]],
Cell[34572, 921, 346, 8, 24, "ExampleText",ExpressionUUID->"9824e54a-ce4d-4893-acda-ab127580d39b",
 CellID->1796910173],
Cell[CellGroupData[{
Cell[34943, 933, 515, 12, 48, "Input",ExpressionUUID->"861faaa3-3cba-4340-9b54-e8c578d87260",
 CellID->1072066299],
Cell[35461, 947, 420, 8, 26, "Output",ExpressionUUID->"a3010fe2-6d49-4435-8a34-3e9b5deda7d7",
 CellID->124686313]
}, Open  ]],
Cell[35896, 958, 801, 17, 42, "ExampleText",ExpressionUUID->"d00791d2-e6cf-4428-8dad-72e16ff07a85",
 CellID->1143020381]
}, Open  ]]
}, Open  ]],
Cell[36724, 979, 265, 5, 33, "ExampleSection",ExpressionUUID->"29ae7e78-85a9-469b-baf0-d3f5dd5fc589",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[37014, 988, 244, 5, 21, "ExampleSection",ExpressionUUID->"0efc4578-dc17-4aa2-8472-3ea76270c8b3",
 CellID->2061341341],
Cell[37261, 995, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"c7d0a1f5-b7c7-4ddf-ac14-79182930db53",
 CellID->1757724783],
Cell[37511, 1002, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"80e87399-0e60-4b12-b2a8-6a32733c34fd",
 CellID->1295379749]
}, Closed]],
Cell[37773, 1010, 248, 5, 21, "ExampleSection",ExpressionUUID->"bc8a098e-8387-47bc-a7c9-2b8c2d7c09b8",
 CellID->258228157],
Cell[38024, 1017, 259, 5, 21, "ExampleSection",ExpressionUUID->"3e4697a9-9c40-43ce-affc-8e5abef01f95",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[38308, 1026, 252, 5, 21, "ExampleSection",ExpressionUUID->"2591f3fa-c82b-4188-b516-9f32233540f7",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[38585, 1035, 313, 6, 29, "Input",ExpressionUUID->"76533fb1-7518-4c8e-ac55-451e6c957b28",
 CellID->962902887],
Cell[38901, 1043, 512, 10, 22, "Message",ExpressionUUID->"82c4278b-9eab-4af0-b036-9c94763f1b23",
 CellID->53528469],
Cell[39416, 1055, 225, 4, 25, "Output",ExpressionUUID->"4ad6ca04-2d2f-412d-ac19-a300d119fdd1",
 CellID->2004814037]
}, Open  ]]
}, Open  ]],
Cell[39668, 1063, 257, 5, 33, "ExampleSection",ExpressionUUID->"599547ad-5bf6-4816-8a1c-e8255d45a2a2",
 CellID->1653164318],
Cell[39928, 1070, 249, 5, 21, "ExampleSection",ExpressionUUID->"e856c71e-898a-4caf-bd3e-ff4c83464da3",
 CellID->589267740],
Cell[CellGroupData[{
Cell[40202, 1079, 372, 8, 21, "ExampleSection",ExpressionUUID->"104401cb-b7c8-4367-bc6b-f02fbf5872de",
 CellID->446036623],
Cell[40577, 1089, 1899, 43, 227, "Input",ExpressionUUID->"4cbb7194-df59-4ba9-87ce-1738b9cc634a",
 InitializationCell->False,
 CellID->576956579],
Cell[42479, 1134, 15595, 305, 1484, "Input",ExpressionUUID->"866342eb-01cb-4eeb-8a21-6991835edde2",
 InitializationCell->False,
 CellID->1020557048]
}, Closed]]
}, Open  ]]
}
]
*)

